home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / util / misc / PowerWindowsUp.lha / PowerWindowsUpd / PowerWindows-Update < prev    next >
Text File  |  1997-07-16  |  13KB  |  274 lines

  1.  
  2. ;***********
  3. ;*         *
  4. ;* STRINGS *
  5. ;*         *
  6. ;***********
  7.  
  8. (set #LANG_FOUND 0)
  9.  
  10. (if (= "deutsch" @language)
  11.        (
  12.     (set #MSG_WELCOME "Willkommen zum PowerWindows Update V1.1.1\n\nFahren Sie nur dann fort, wenn Sie \"Update.readme\" gelesen haben. Andernfalls könnte es zu unerwünschten überraschungen kommen!!")
  13.     (set #MSG_SELECTPATH "Wo befindet sich das PowerWindows Verzeichnis?")
  14.     (set #MSG_NOTPW "Dies scheint nicht das richtige Verzeichnis zu sein!\nSie müssen entweder das PowerWindows Verzeichnis selbst, oder dessen Mutterverzeichnis auswählen!")
  15.     (set #MSG_COPY_EXE "Kopiere neues Executable")
  16.     (set #MSG_COPY_PIO "Kopiere PIO-Datei für PW_PREFS")
  17.     (set #MSG_COPY_GUI "Kopiere englische GUI-Datei für PW_Prefs")
  18.     (set #MSG_COPY_GUI_GER "Kopiere deutsche GUI-Datei für PW_Prefs")
  19.     (set #MSG_COPY_GUI_ITA "Kopiere italienische GUI-Datei für PW_Prefs")
  20.     (set #MSG_COPY_CYREQ "Kopiere Utility, womit ARQ, Requester-Verbesserer, -Ersetzer und Assign-Wedges wieder funktionieren sollten")
  21.     (set #MSG_COPY_STACK "Kopiere Utility, das den Stack anderer Programme erhöht und dadurch seltsame/zufällige GURUs evtl. verhindert")
  22.     (set #MSG_COPY_WAITER "Kopiere Warte-Utility für WBStartup")
  23.  
  24.     (set #MSG_STACKATTACK1 "Soll StackAttack in der Startup-Sequence gestartet werden? Mit einem Klick auf \"Ja\" wird ein Programm gestartet, mit dem man bestimmen kann, in welcher Zeile StackAttack aufgerufen wird. ")
  25.     (set #MSG_STACKATTACK2 "Vor dem Speichern der geänderten Startup-Sequence wird ein Backup (\"Startup-Sequence.old\") davon gemacht.\n\n")
  26.     (set #MSG_STACKATTACK3 "Falls Sie StackAttack bereits in der Startup-Sequence haben, oder es nicht verwenden wollen , klicken Sie auf \"Nein\". Vorher sollten Sie aber mal kurz auf \"Hilfe\" klicken!")
  27.     (set #MSG_STACKATTACK_HELP "StackAttack erhöht den Stack von anderen Programmen, um seltsame/zufällige GURUS eventuell zu verhindern. Es wird dringend empfohlen, dieses Programm zu benützen. Schauen Sie sich \"PowerWindows/Tools/ReadMe\" an!")
  28.  
  29.     (set #MSG_CYREQ1 "Soll CyReq in der User-Startup gestartet werden? Mit einem Klick auf \"Ja\" wird ein Programm gestartet, mit dem man bestimmen kann, in welcher Zeile CyReq aufgerufen wird. ")
  30.     (set #MSG_CYREQ2 "Vor dem Speichern der geänderten User-Startup wird ein Backup (\"User-Startup.old\") davon gemacht. CyReq sollte möglichst ganz am Anfang der User-Startup stehen!\n\n")
  31.     (set #MSG_CYREQ3 "Klicken Sie mal kurz auf \"Hilfe\" und lesen Sie auch unbedingt \"Update.readme\"!")
  32.     
  33.     (set #MSG_CYREQ_HELP1 "CyReq wird benötigt, wenn bestimmte Requester-Commodities (Assign-Wedges, ...) nicht funktionieren, wenn PW läuft. Zusätzlich muß man noch die Option \"Requester nicht patchen\" (NOREQPATCH) ")
  34.     (set #MSG_CYREQ_HELP2 "bei PowerWindows aktivieren. In bestimmten Fällen (ARQ) ist es auch ausreichend, besagte Option in PowerWindows zu aktivieren, ohne CyReq zu verwenden. Falls aber beim Beenden von PW zwei Requester ")
  35.     (set #MSG_CYREQ_HELP3 "erscheinen (\"Image-Counter\" und \"Button-Counter\"), dann muß CyReq verwendet werden, weil ansonsten allozierter Speicher nicht mehr freigegeben wird!\n\n")
  36.     (set #MSG_CYREQ_HELP4 "Falls es trotz CyReq immer noch Probleme gibt, sollte man es aus der User-Startup entfernen und stattdessen in der Startup-Sequence (möglichst früh nach \"C:SetPatch\") starten!")
  37.  
  38.     (set #MSG_NOHELP "Keine Hilfe verfügbar. Sorry. Ich bin einfach zu faul :-(")
  39.     (set #MSG_DONE "PowerWindows ist nun upgedated auf V1.1.1\n\nViel Spaß damit und vergessen Sie nicht, daß dieses Programm Shareware ist $-)")
  40.  
  41.     (set #LANG_FOUND 1)
  42.        )
  43. )
  44.  
  45. (if (= "italiano" @language)
  46.        (
  47.     (set #MSG_WELCOME "PowerWindows update V1.1.1\n\nContinuare solo dopo aver letto \"Update.readme\". Altrimenti potrebbero verificarsi sorprese non desiderate!")
  48.     (set #MSG_SELECTPATH "Dove si trova il directory di PowerWindows?")
  49.     (set #MSG_NOTPW "Questo non sembra essere il directory giusto!\nSi deve scegliere o il PowerWindows directory stesso, o il suo directory precedente (madre)!")
  50.     (set #MSG_COPY_EXE "Copio eseguibile nuovo")
  51.     (set #MSG_COPY_PIO "Copio PIO-File per PW_PREFS")
  52.     (set #MSG_COPY_GUI "Copio GUI-File inglese per PW_Prefs")
  53.     (set #MSG_COPY_GUI_GER "Copio GUI-File tedesco per PW_Prefs")
  54.     (set #MSG_COPY_GUI_ITA "Copio GUI-File italiano per PW_Prefs")
  55.     (set #MSG_COPY_CYREQ "Copio utility per far funzionare ARQ, requester-improvers, -replacers e assign-wedges nuovamente")
  56.     (set #MSG_COPY_STACK "Copio utility che incrementa lo stack di altri programmi per eliminare in alcuni casi GURU strani e casuali")
  57.     (set #MSG_COPY_WAITER "Copio Wait-Utility per WBStartup")
  58.  
  59.     (set #MSG_STACKATTACK1 "Vuoi che StackAttack venga lanciato dalla Startup-Sequence? Cliccando su \"Si\" verrà lanciato un programma con il quale si potrà determinare in che posizione far lanciare StackAttack. ")
  60.     (set #MSG_STACKATTACK2 "Prima di salvare la Startup-Sequence cambiata ne sarà fatto un Backup (\"Startup-Sequence.old\").\n\n")
  61.     (set #MSG_STACKATTACK3 "Se StackAttack si trova di già nella tua Startup-Sequence, o se non vuoi che venga usato, cliccare su \"No\". Prima però consiglio di cliccare su \"Aiuto\"!")
  62.     (set #MSG_STACKATTACK_HELP "StackAttack incrementa lo Stack di altri programmi per eliminare eventualmente GURU strani e casuali. Si consiglia fortemente di usare questo programma. Leggiti \"PowerWindows/Tools/ReadMe\"!")
  63.  
  64.     (set #MSG_CYREQ1 "Vuoi che CyReq venga lanciato dalla User-Startup? Cliccando su \"Si\" verrà lanciato un programma con il quale si potrà determinare in che posizione far lancare CyReq. ")
  65.     (set #MSG_CYREQ2 "Prima di salvare la User-Startup cambiata ne sarà fatto un Backup (\"User-Startup.old\"). Si consiglia di mettere CyReq all'inizio della User-Startup!\n\n")
  66.     (set #MSG_CYREQ3 "Clicca anche su \"Aiuto\" e leggiti \"Update.readme\"!")
  67.  
  68.     (set #MSG_CYREQ_HELP1 "CyReq ci vuole se certi Requester-Commodities (Assign-Wedges, ...) non funzionano con PW. Deve essere attivata anche l'opzione \"Niente Requester Patch\" (NOREQPATCH) ")
  69.     (set #MSG_CYREQ_HELP2 "di PowerWindows. In certi casi (ARQ) basta attivare la citata opzione senza usare CyReq. Se però, quando PowerWindows viene terminato, due Requester appaiono (\"Button-Counter\" e \"Image-Counter\"), ")
  70.     (set #MSG_CYREQ_HELP3 "CyReq deve essere usato perchè altrimenti memoria allocata non viene più liberata!\n\n")
  71.     (set #MSG_CYREQ_HELP4 "Se pur usando CyReq riscontri ancora problemi, prova a cancellarlo dalla User-Startup e metterlo nella Startup-Sequence (il prima possibile dopo \"C:SetPach\")!")
  72.  
  73.     (set #MSG_NOHELP "Nessun aiuto disponibile. Sorry. Sono troppo pigro :-(")
  74.     (set #MSG_DONE "L'update di PowerWindows è completo.\n\nSpero che ti piacerà e che non dimentichi che si tratta di Shareware $-)")
  75.  
  76.         (set #LANG_FOUND 1)
  77.        )
  78. )
  79.  
  80. (if (= 0 #LANG_FOUND)
  81.        (
  82.     (set #MSG_WELCOME "Welcome to the PowerWindows update V1.1.1\n\nProceed only if you have read \"Update.readme\". Otherwise you might get bad surprises!")
  83.     (set #MSG_SELECTPATH "Where is your PowerWindows directory?")
  84.     (set #MSG_NOTPW "This does not seem to be the correct directory!\nEither select the PowerWindows directory itself or it's parent directory!")
  85.     (set #MSG_COPY_EXE "Copying executable")
  86.     (set #MSG_COPY_PIO "Copying PIO-File for PW_PREFS")
  87.     (set #MSG_COPY_GUI "Copying english GUI-File for PW_Prefs")
  88.     (set #MSG_COPY_GUI_GER "Copying german GUI-File for PW_Prefs")
  89.     (set #MSG_COPY_GUI_ITA "Copying italian GUI-File for PW_Prefs")
  90.     (set #MSG_COPY_CYREQ "Copying utility to get ARQ, requester improvers/replacers, assign-wedges working again")
  91.     (set #MSG_COPY_STACK "Copying utility that increments stack of other programs in order to eventually eliminate strange/casual GURUs")
  92.     (set #MSG_COPY_WAITER "Copying Wait-Utility for WBStartup")
  93.  
  94.     (set #MSG_STACKATTACK1 "Shall StackAttack be started from the Startup-Sequence? By clicking on \"Yes\" a program will be launched that lets you choose at which line to start StackAttack. ")
  95.     (set #MSG_STACKATTACK2 "Before saving the changed Startup-Sequence a backup of it (\"Startup-Sequence.old\") will be made.\n\n")
  96.     (set #MSG_STACKATTACK3 "If StackAttack is already in your Startup-Sequence or you don't want to use it, click on \"No\". Anyway you should click on \"Help\" before doing that!")
  97.     (set #MSG_STACKATTACK_HELP "StackAttack increments the Stack of other programs in order to eventually eliminate strange/casual GURUs. You are strongly encouraged to use this program. Have also a look at \"PowerWindows/Tools/ReadMe\"!")
  98.  
  99.     (set #MSG_CYREQ1 "Shall CyReq be started from the User-Startup? By clicking on \"Yes\" a program will be launched that lets you choose at which line to start CyReq. ")
  100.     (set #MSG_CYREQ2 "Before saving the changed User-Startup a backup of it (\"User-Startup.old\") will be made. CyReq should be started (possibly) at the very top of the User-Startup!\n\n")
  101.     (set #MSG_CYREQ3 "Click also on \"Help\" and read \"Update.readme\"!")
  102.  
  103.     (set #MSG_CYREQ_HELP1 "CyReq is needed if certain Requester-Commodities (Assign-Wedges, ...) don't work when PW is running. Additionally the PowerWindows-Option \"Don't patch Requesters\" (NOREQPATCH) must be activated. ")
  104.     (set #MSG_CYREQ_HELP2 "Anyway in certain cases (ARQ) it's enough activating this option without using CyReq. But if two requesters pop up (\"Image-Counter\" and \"Button-Counter\") when quitting PowerWindows, ")
  105.     (set #MSG_CYREQ_HELP3 "CyReq has to be used, otherwise alloced memory does not get freed anymore.\n\n")
  106.     (set #MSG_CYREQ_HELP4 "If you are still having problems, although using CyReq, try removing it from the User-Startup and launch it from the Startup-Sequence (as soon as possible after \"C:SetPatch\") instead!")
  107.  
  108.     (set #MSG_NOHELP "No help available. Sorry. I'm just too lazy :-(")
  109.     (set #MSG_DONE "PowerWindows is now updated to V1.1.1!\n\nHave a lot of fun with it and don't forget that it's Shareware $-)")
  110.  
  111.        )
  112. )
  113.  
  114.  
  115.  
  116. (welcome #MSG_WELCOME)
  117.  
  118. (set #PW_FOUND 0)
  119. (set #Destination @default-dest)
  120.  
  121. (while (= #PW_FOUND 0)
  122.     (
  123.         (set #Destination
  124.             (Expandpath
  125.                 (askdir (prompt #MSG_SelectPath)
  126.                     (default #Destination)
  127.                     (help #MSG_NOHELP)
  128.                 )
  129.             )
  130.         )
  131.  
  132.         (if (= 2 (exists (tackon #Destination "PowerWindows")))
  133.             (set #Destination (tackon #Destination "PowerWindows"))
  134.         )
  135.  
  136.         (set #a (exists (tackon #Destination "PowerWindows.pio")))
  137.  
  138.         (if (= 1 #a)
  139.             (set #PW_FOUND 1)
  140.             (
  141.                 (message #MSG_NOTPW)
  142.             )
  143.         )
  144.     )
  145. )
  146.         
  147. ;**************
  148. ;*            *
  149. ;* COPY FILES *
  150. ;*            *
  151. ;**************
  152.  
  153. (copyfiles (prompt #MSG_COPY_EXE)
  154.        (source "PowerWindows")
  155.        (dest #Destination)
  156.        (confirm)
  157.        (help #MSG_NOHELP)
  158. )
  159.  
  160. (if (= 1 (exists ("sys:WBStartup/PowerWindows")))
  161.     (copyfiles (prompt #MSG_COPY_EXE)
  162.            (source "PowerWindows")
  163.            (dest "sys:WBStartup")
  164.            (confirm)
  165.            (help #MSG_NOHELP)
  166.     )
  167. )
  168.  
  169. (copyfiles (prompt #MSG_COPY_PIO)
  170.        (source "PowerWindows.pio")
  171.        (dest #Destination)
  172.        (confirm)
  173.        (help #MSG_NOHELP)
  174. )
  175.  
  176. (copyfiles (prompt #MSG_COPY_GUI)
  177.        (source "PowerWindows.gui")
  178.        (dest #Destination)
  179.        (confirm)
  180.        (help #MSG_NOHELP)
  181. )
  182.  
  183. (copyfiles (prompt #MSG_COPY_GUI_GER)
  184.        (source "PowerWindows.gui.deutsch")
  185.        (dest #Destination)
  186.        (confirm)
  187.        (help #MSG_NOHELP)
  188. )
  189.  
  190. (copyfiles (prompt #MSG_COPY_GUI_ITA)
  191.        (source "PowerWindows.gui.italiano")
  192.        (dest #Destination)
  193.        (confirm)
  194.        (help #MSG_NOHELP)
  195. )
  196.  
  197. (copyfiles (prompt #MSG_COPY_CYREQ)
  198.        (source "tools/CyReq")
  199.        (dest (tackon #Destination "Tools/Shell"))
  200.        (confirm)
  201.        (help #MSG_NOHELP)
  202. )
  203.  
  204. (copyfiles (prompt #MSG_COPY_CYREQ)
  205.        (source "tools/CyReq")
  206.        (dest "SYS:C")
  207.        (confirm)
  208.        (help #MSG_NOHELP)
  209. )
  210.  
  211. (copyfiles (prompt #MSG_COPY_STACK)
  212.        (source "tools/StackAttack")
  213.        (dest (tackon #Destination "Tools/Shell"))
  214.        (confirm)
  215.        (help #MSG_NOHELP)
  216. )
  217.  
  218. (copyfiles (prompt #MSG_COPY_STACK)
  219.        (source "tools/StackAttack")
  220.        (dest (tackon #Destination "SYS:C"))
  221.        (confirm)
  222.        (help #MSG_NOHELP)
  223. )
  224.  
  225. (copyfiles (prompt #MSG_COPY_WAITER)
  226.        (source "tools/Waiter")
  227.        (dest (tackon #Destination "Tools"))
  228.        (infos)
  229.        (confirm)
  230.        (help #MSG_NOHELP)
  231. )
  232.  
  233.  
  234. ;*************************************
  235. ;*                                   *
  236. ;* STACKATTACK to s:Startup-Sequence *
  237. ;*                                   *
  238. ;*************************************
  239.  
  240.  
  241. (if (= 1 (askbool (prompt (cat #MSG_STACKATTACK1 #MSG_STACKATTACK2 #MSG_STACKATTACK3))
  242.                    (help #MSG_STACKATTACK_HELP)
  243.          )
  244.     )
  245.     (
  246.         (run "FileAttack Start_StackAttack S:Startup-Sequence Backup S:Startup-Sequence.old DefaultAfter #?SetPatch#?")
  247.     )
  248. )
  249.  
  250. ;*************************************
  251. ;*                                   *
  252. ;*     CYREQ to s:User-Startup       *
  253. ;*                                   *
  254. ;*************************************
  255.  
  256.  
  257. (if (= 1 (askbool (prompt (cat #MSG_CYREQ1 #MSG_CYREQ2 #MSG_CYREQ3))
  258.                    (help   (cat #MSG_CYREQ_HELP1 #MSG_CYREQ_HELP2 #MSG_CYREQ_HELP3 #MSG_CYREQ_HELP4))
  259.          )
  260.     )
  261.     (
  262.         (run "FileAttack Start_CyReq S:User-Startup Backup S:User-Startup.old")
  263.     )
  264. )
  265.  
  266. ;***********
  267. ;*         *
  268. ;* THE END *
  269. ;*         *
  270. ;***********
  271.  
  272. (exit #MSG_DONE
  273.     (quiet)
  274. )